home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 June / Software of the Month Club 1996 June.iso / mac / Education / Extended Calculator II / Calculator programs / N-R (3D) < prev    next >
Text File  |  1994-04-11  |  204b  |  17 lines
  1. a:=0;
  2. x:=-.6;
  3. y:=.6;
  4.  
  5. while(a<100);
  6.     a:=a+1;
  7.     f:=y-e^x;
  8.     b:=-e^x;
  9.     c:=1;
  10.     g:=x-sin y;
  11.     u:=1;
  12.     v:=-cos y;
  13.     x:=x-(f*v - c*g)/(b*v - c*u);
  14.     y:=y-(b*g - f*u)/(b*v - c*u);
  15. end;
  16.  
  17.